home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / eiyoukei / cconvrt.bas next >
BASIC Source File  |  1994-06-01  |  2KB  |  44 lines
  1. 100 'SAVE "CCONVRT.BAS",A
  2. 110 'FBHGーFB386
  3. 120 '          V2.2                  94.01.03
  4. 130 GOSUB *INI
  5. 140 NAME "1:CYOURI.DAT" AS "1:CYOURI.BAK"
  6. 150 OPEN "0:(72)CYOURI.DAT" AS #1
  7. 160 FIELD #1,0   AS DAMMY$,4  AS A1$
  8. 170 FIELD #1,4   AS DAMMY$,32 AS A2$
  9. 180 FIELD #1,36  AS DAMMY$,32 AS A3$
  10. 190 FIELD #1,68  AS DAMMY$,4  AS A4$
  11. 200 OPEN "1:(72)CYOURI.DAT" AS #2
  12. 210 FIELD #2,0   AS DAMMY$,4  AS B1$
  13. 220 FIELD #2,4   AS DAMMY$,32 AS B2$
  14. 230 FIELD #2,36  AS DAMMY$,32 AS B3$
  15. 240 FIELD #2,68  AS DAMMY$,4  AS B4$
  16. 250 FOR I=1 TO LOF(1)
  17. 260 GET #1,I
  18. 270 LSET B1$=MKS$(CVSMBF(A1$))
  19. 280 LSET B2$=A2$
  20. 290 LSET B3$=A3$
  21. 300 LSET B4$=MKS$(CVSMBF(A4$))
  22. 310 PUT #2,I
  23. 320 NEXT I
  24. 330 CLOSE:RUN "MENTE.BAS" 
  25. 1000 *INI ON ERROR GOTO *ERR
  26. 1010 CLS:PRINT "このプログラムはＦＢ３８６で実行してください｡"
  27. 1020 SCREEN@ 0
  28. 1030 PRINT "FM-R(FB-HG)のCYOURI.DATを TOWNS(FB-386)のCYOURI.DATに変換します｡"
  29. 1040 INPUT X$
  30. 1050 PRINT "FM-R(FB-HG)のCYOURI.DATをドライブ０にセットしてください。"
  31. 1060 INPUT X$
  32. 1070 PRINT "TOWNS(FB-386)のCYOURI.DATを作製するフロッピーデスクをドライブ１にセットしてください。"
  33. 1080 PRINT "ドライブ１のカレントデイレクトリにCYOURI.DATがある場合にはCYOURI.BAKにリネームします。"
  34. 1090 INPUT X$
  35. 1095 'SHELL "B:":SHELL "CD \LIB":SHELL "A:"
  36. 1100 RETURN
  37. 1110 *ERR 
  38. 1120 IF ERL=140 AND ERR=63 THEN RESUME NEXT
  39. 1130 IF ERL=140 AND ERR=64 THEN KILL "1:CYOURI.BAK":RESUME
  40. 1135 IF ERL=1020 THEN RESUME 330
  41. 1136 IF ERL=1095 THEN RESUME 330
  42. 1137 PRINT "ERR=";ERR;,"   ERL=";ERL
  43. 1140 *ERRE ON ERROR GOTO 0:CLOSE:END
  44.